
'-------------------------------------------------------------------------------
' --- CLASS.VBS
'
'   Autor: Sardi, Leandro Daniel
'   Fecha: 17-01-2006
'
'
'
'-------------------------------------------------------------------------------

'-------------------------------------------------------------------------------
' --- Tipos de Datos
const T_BOOL    = "bool"
const T_INT     = "int"
const T_FLOAT   = "float"
const T_STRING  = "string"
const T_DATE    = "date"
const T_TIME    = "time"

'-------------------------------------------------------------------------------
' --- Modo de Presentacion de los datos
const M_NORMAL  = "normal"
const M_ENUM    = "enum"
const M_PTR     = "ptr"
const M_LIST    = "list"
const M_INHERIT = "inherit"



Function RegisterClass ( ByVal sClassName )
End Function

Function RegisterClassOutputQuery ( ByVal sClassName, ByVal sQuery )
End Function

Function RegisterProperty ( ByVal sClassName, ByVal sPropertyName )
End Function

' sPropertyType = bool|int|float|string|date|time|<class_name>
Function RegisterPropertyType ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyType )
End Function

' sPropertyMode = normal|enum|ptr|list|inherit
Function RegisterPropertyMode ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyMode )
End Function

Function RegisterPropertyNullable ( ByVal sClassName, ByVal sPropertyName, ByVal bPropertyNullable )
End Function

Function RegisterPropertyInitValue ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyInitValue )
End Function

Function RegisterPropertyInputVisible ( ByVal sClassName, ByVal sPropertyName, ByVal bPropertyInputVisible )
End Function

Function RegisterPropertyInputReadOnly ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyInputReadOnly )
End Function

Function RegisterPropertyOnShow ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyOnShow )
End Function

Function RegisterPropertyOnActivate ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyOnShow )
End Function

Function RegisterPropertyOnCommit ( ByVal sClassName, ByVal sPropertyName, ByVal sPropertyOnShow )
End Function


